home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Object.dxr / 00098.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  2.3 KB  |  53 lines
  1. on checkhotspots
  2.   global objpctsprite, objnum, objpropertylist, poslist, sidecounter, hsrectlist, closeupsprite, notationsprite, gpictfilepath, oldpartialpct
  3.   set headname to "Z" & the text of field "Current Object"
  4.   set closeupsprite to 30
  5.   set notationsprite to 31
  6.   set offset to 10
  7.   set hoffset to the left of sprite objpctsprite
  8.   set voffset to the top of sprite objpctsprite
  9.   set where to point(the mouseH, the mouseV)
  10.   if count(hsrectlist) > 0 then
  11.     repeat with r in hsrectlist
  12.       set left to getAt(r, 1) + hoffset
  13.       set top to getAt(r, 2) + voffset
  14.       set right to getAt(r, 3) + hoffset
  15.       set bottom to getAt(r, 4) + voffset
  16.       set r1 to rect(left, top, right, bottom)
  17.       if inside(where, r1) then
  18.         puppetSprite(closeupsprite, 1)
  19.         set the castLibNum of sprite closeupsprite to the number of castLib "Object"
  20.         set order to getPos(getaProp(objpropertylist, #hs), r)
  21.         set posnum to the last char in string(getOne(getaProp(objpropertylist, #hs), r))
  22.         set the memberNum of sprite closeupsprite to the number of member (headname & string(2 + order))
  23.         set the loc of sprite closeupsprite to getAt(poslist, value(posnum))
  24.         updateStage()
  25.         set notationnum to the number of member (headname & string(2 + order) & "T")
  26.         if notationnum > 0 then
  27.           puppetSprite(notationsprite, 1)
  28.           set the castLibNum of sprite notationsprite to the number of castLib "Object"
  29.           set notationname to the name of member notationnum
  30.           set the memberNum of sprite notationsprite to notationnum
  31.           set left to the left of sprite closeupsprite + 15
  32.           set top to the bottom of sprite closeupsprite - the height of member notationname - 15
  33.           set right to left + the width of member notationname
  34.           set bottom to top + the height of member notationname
  35.           set the rect of sprite notationsprite to rect(left, top, right, bottom)
  36.           updateStage()
  37.         end if
  38.         exit repeat
  39.       end if
  40.       puppetSprite(closeupsprite, 0)
  41.       puppetSprite(notationsprite, 0)
  42.     end repeat
  43.   end if
  44. end
  45.  
  46. on changvrview direction
  47.   global gqtvrinstance
  48.   qtvrnudge(gqtvrinstance, direction)
  49.   repeat while the mouseDown
  50.     qtvrnudge(gqtvrinstance, direction)
  51.   end repeat
  52. end
  53.